POUR FILM
TABLEAU
DONNE "X 0
TABL :X
FIN

POUR TABL :X
SI :X = 6 {DONNE "X 0}
FFO :X
ATTENDS 100
TABL :X + 1
FIN

POUR ARBRE :X
SI :X <5 {STOP}
AV :X DR 45
ARBRE :X / 2
GA 90
ARBRE :X / 2
DR 45
ARBRE :X / 2
RE :X
FIN

POUR SOLEIL
PLEINECRAN
FCC 3
LC
FPOS {50 50}
BC 
REPETE 360 {AV 30 RE 30 DR 1}
REPETE 18 {AV 50 RE 50 DR 20}
FIN

POUR MAISON :B
LC
CENTRE
FPOS {-40 -80}
BC
FCC 1
REPETE :B {AV 50 DR 90 AV}
B DR 90 AV 50 DONNE "B :
B - 1 DR 90 AV :B {DR 90}
FIN

POUR TOIT :A
LC AV 50 BC FCC 4
GA 90
TRIA :A
DR 90
RE 22 GA 90
AV 45
TRIA :A
DR 180 REPETE 11 {AV 55 DR 90 AV 1 DR 90 AV 55 GA 90 AV 1 GA 90}
FIN

POUR TRIA :A
REPETE :A {AV :A DR 120 AV :A DR 120 DONNE "A :A - 1 AV :A DR 120}
FIN

POUR TABLEAU
CT 
DONNE "A 50
DONNE "B 80
DONNE "C 25
DONNE "D 25
DONNE "E 2
HERBE
FORET
MAISON :B
TOIT :C
LC CENTRE AV 60 FCC 4 BC
SOLEIL
ENCADRE
FIN

POUR FORET
LC FPOS {-95 -80}
BC
ARBRE 60
ARBRE 40
LC FPOS {-80 -80}
BC 
ARBRE 50
ARBRE 30
LC
FPOS {100 -80}
BC 
ARBRE 60
ARBRE 40
LC
FPOS {110 -80}
BC
ARBRE 50
ARBRE 30
FIN

POUR ENCADRE
LC CENTRE
FCC 3
FPOS {-140 -120}
BC
DONNE "X 240
DONNE "Y 280
AV :X
CADRE :X :Y
FIN

POUR CADRE :X :Y
SI :X - 1 = 230 {STOP}
DR 90 AV :Y DR 90 AV :X
CADRE :X - 1 :Y - 1
FIN

POUR HERBE
FCC 2 
LC
FPOS {-120 -100}
BC
DR 90
REPETE {AV 280 GA 90 AV 1 GA 90 AV 280 DR 90 AV 1 DR 90}
GA 90
FIN